COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	      SUBROUTINE RUNIT
C00005 ENDMK
C⊗;
      SUBROUTINE RUNIT
C***** THIS ROUTINE WRITES A FILE WHICH IS READ BY THE 'REAL' RUNIT PROG.******
      COMMON /Q/ BNW(100),NWZ /INS/INST(27),BG(60) 
      COMMON/VV/LIMIT,V(2000) /A/ROFF(27),NP(27),PCH(27,32),
     1 RDEV(27),IPT(27,31),XT(27),OTH(20,16),SCAL(101)
     1 ,P1(27),JFM(4),COPY(30),IFM(80)
     1 ,FINM(6),TINST(5),ENFI(5),TEDIT(4),INVIS(27)
      DIMENSION LIST(78)
      COMMON P(30),J,L,CNT(27),BT,PL(48),MK,DF,DUR(27)
     1/E/IQ(27),KL,X,ZPAR,KA,LK,NNUM,JJ,JA,ISUB,NFLG,IXX,ISEMI,IQT
     1 ,INP(144),VX(70),ISCA(12),IDAT(11),IAMP,K,KN,M,ML,CODE,IBLA
      COMMON/B/MOT,PR,T5,NINS,I,TP,RA,KZY,NWX,INONLY,MX,
     1 Y,Z,ISLAC,MZ,N,IDALL,JC,JG,RB,IJ,IX,BW,KB,NL,RC,W,
     1 ZZ,CHN,YY 
     1 /D/TF,AMPFAC,OP1,DURX,IXIN,IFLNM
     1  /C/LPAR,IPRN,QX,RETRO,INVRT,ICON,LCNT,
     1 PARENS,JZ,BY,MLX,IZ,ALL,JD,LEND,QTS,ITMP,
     1 LP,ILIT,NLIT,KTMP,IC,RAX,RD,IA
C  /C/=26
      EQUIVALENCE (LIST,IFM(3))
      DATA KZY/27/,ISEMI/';'/,IQT/'"'/,LIMIT/2000/
     1, JFM(3)/','/
C  IAA=A  ID=D  IE=E  IF=F  IEN=N  IPP=P  ISS=S  ITT=T
C**** FILE WAS OPENED IN S11A.F4 *****
      WRITE(1)NINS,KZY,NWX,I,NWZ,KB,IDALL,LIMIT,IFLNM,TP
      WRITE(1)(INST(K),K=1,NINS),(DUR(K),K=1,NINS)
      WRITE(1)(V(K),K=1,I)
      WRITE(1)(BG(K),K=1,NINS),(NP(K),K=1,NINS)
      WRITE(1)(BNW(K),K=1,NWZ)
      WRITE(1)OTH
      CALL EXIT
      END